﻿Imports System.Data.SqlClient

Public Class Transaccion
    Private oTx As SqlTransaction

    Sub New(ByVal oTransaccion As SqlTransaction)
        oTx = oTransaccion
    End Sub

    Public ReadOnly Property Transaccion() As SqlTransaction
        Get
            Return oTx
        End Get

    End Property

    Public Sub Commit()
        If Not oTx Is Nothing Then oTx.Commit()
    End Sub

    Public Sub RollBack()
        If Not oTx Is Nothing Then oTx.Rollback()
    End Sub

End Class

